(* blink with lowest led *)
MEM ledr = 1136;
VAR led;

PROCEDURE delay;
    VAR cnt;
BEGIN
    cnt := 0;
    WHILE cnt < 50000 DO
        cnt := cnt + 1
    END
END;

BEGIN
    led := 0;
    WHILE 1 = 1 DO
        led := led ^ 1;
        ledr := led;
        
        CALL delay
    END
END.
